home *** CD-ROM | disk | FTP | other *** search
/ PC Users 1998 November / Cd users extra 14.iso / pshare / util / gc / data1.cab / Example_Files / Sample7.gc < prev    next >
Encoding:
Text File  |  1998-08-20  |  530 b   |  10 lines
  1. ////Tests the Label jumps inside a macro..
  2. Messagebox("This macro demonstrates the Label, MessageBoxOkCancel,  If, and Goto commands.")
  3. :TopOfLoop
  4. MessageBoxOkCancel("Press 'OK' to test the label... Cancel to quit.")
  5. If(ResponseCancel(),GoTo(":ExitLoop"))
  6. //If(ResponseOk(),GoTo(":TopOfLoop"),Goto(":ExitLoop"))     <------ we could have used this extended version but we chose to use a simple Goto(":TopOfLoop") instead..
  7. GoTo(":TopOfLoop")
  8. :ExitLoop
  9. MessageBox("Congratulations... you found your way out of the loop!")
  10.